home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / texted1a / frmsplas.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-14  |  3KB  |  97 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   4245
  6.    ClientLeft      =   1215
  7.    ClientTop       =   750
  8.    ClientWidth     =   7155
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmSplash.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MDIChild        =   -1  'True
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4245
  18.    ScaleWidth      =   7155
  19.    ShowInTaskbar   =   0   'False
  20.    Begin VB.PictureBox pctLogo1 
  21.       BorderStyle     =   0  'None
  22.       Height          =   2655
  23.       Left            =   120
  24.       Picture         =   "frmSplash.frx":000C
  25.       ScaleHeight     =   2655
  26.       ScaleWidth      =   7095
  27.       TabIndex        =   0
  28.       Top             =   120
  29.       Width           =   7095
  30.    End
  31.    Begin VB.Label lblKeyPress 
  32.       BackColor       =   &H00FFFFFF&
  33.       Caption         =   "Press any key to continue..."
  34.       Height          =   255
  35.       Left            =   2760
  36.       TabIndex        =   5
  37.       Top             =   3960
  38.       Width           =   2175
  39.    End
  40.    Begin VB.Label lblCreatedByName 
  41.       BackColor       =   &H00FFFFFF&
  42.       Caption         =   "Jeremy T. Parker"
  43.       Height          =   255
  44.       Left            =   1320
  45.       TabIndex        =   4
  46.       Top             =   3480
  47.       Width           =   1575
  48.    End
  49.    Begin VB.Label lblCreateBy 
  50.       BackColor       =   &H00FFFFFF&
  51.       Caption         =   "Created By:"
  52.       Height          =   255
  53.       Left            =   240
  54.       TabIndex        =   3
  55.       Top             =   3480
  56.       Width           =   855
  57.    End
  58.    Begin VB.Label lblVersionNumber 
  59.       BackColor       =   &H00FFFFFF&
  60.       Caption         =   "2.0.1"
  61.       Height          =   255
  62.       Left            =   1320
  63.       TabIndex        =   2
  64.       Top             =   3000
  65.       Width           =   1335
  66.    End
  67.    Begin VB.Label lblVersion 
  68.       BackColor       =   &H00FFFFFF&
  69.       Caption         =   "Version:"
  70.       Height          =   255
  71.       Left            =   240
  72.       TabIndex        =   1
  73.       Top             =   3000
  74.       Width           =   615
  75.    End
  76. Attribute VB_Name = "frmSplash"
  77. Attribute VB_GlobalNameSpace = False
  78. Attribute VB_Creatable = False
  79. Attribute VB_PredeclaredId = True
  80. Attribute VB_Exposed = False
  81. Option Explicit
  82. Private Sub Form_KeyPress(KeyAscii As Integer)
  83. 'Unloads frmSplash when a key is pressed.
  84.     Unload Me
  85. End Sub
  86. Private Sub Form_Load()
  87. 'This is just taking in to account for the way MDI Windows are automatically resized when launched.. This fixes it.
  88.     Me.Height = 4335
  89.     Me.Width = 7245
  90.     Me.Left = 1170
  91.     Me.Top = 400
  92.     lblVersionNumber.Caption = "Ver " & App.Major & "." & App.Minor & "." & App.Revision
  93. End Sub
  94. Private Sub pctLogo1_Click()
  95.     Unload Me
  96. End Sub
  97.